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1.  Introduction 


The  information  system  supporting  distributed  command  and  control  (C2) 

operations  may  be  viewed  as  a  distributed  database.  This  is  an 

attractive  view  because  the  distributed  database  literature  includes 

solutions  to  some  of  the  problems  facing  the  implementor  of  a 
2 

distributed  C  operation.  General  discussions  of  distributed  database 
may  be  found  in  [CERI84J  and  [DATE83],  while  methods  applicable  to  C2 
site  initialization,  recovery,  and  back-up  are  discussed  in  [ATTA63]. 

Database  techniques  have  been  developed  largely  for  a  commercial 
environment  where  responsiveness  is  less  important  than  complete 
accuracy,  and  short  breaks  in  service  may  be  tolerated.  For  example, 
concurrency  control  may  involve  locking  units  of  information  for 
extended  periods  of  time,  so  that  the  Information  is  not  generally 
available.  If  transactions  are  kept  short,  as  recommended  in  [DATE831 , 
the  disruption  is  not  great.  [ATTA83]t  however,  outlines  solutions  to 
the  problems  of  initialization  and  recovery  that  necessarily  involve 
huge  transactions. 

We  have  therefore  addressed  the  problem  of  responsiveness  in  a  locking 
environment. 

Many  database  transactions,  and  parts  of  nearly  all,  can  be  viewed  as  a 
aet  operations}  this  Is  particularly  expllolt  in  the  relational  model 
[CODD70J.  Sets  need  not  be  aooeased  in  any  particular  order,  but  on  a 
sequential  machine  some  order  must  be  ehosen.  Usually  that  order  is 
arbitrary.  We  propose  to  modify  that  order  to  lnorease  responsiveness. 


The  order  of  access  to  data  iteas  becoaes  important  in  the  event  of 
conflict.  Conflict  occurs  when  one  transaction  attempts  to  acoeas  a 
data  item  on  which  another  transection  holds  a  loow  that  is  not 
compatible  with  the  attempted  access.  In  that  case,  the  requesting 
transaction  enters  a  nonbusy  wait  state.  Barring  deadlook  it  will 
return  to  the  ready  state  when  the  requested  lock  becoaes  avsilable. 

Deadlock  occurs  when  Tj  waits  for  a  resource  held  by  and  T2  waits, 
possibly  indirectly,  for  a  resource  held  by  Tj.  The  situation  in  which 
the  requesting  transaction  either  receives  a  look  or  waits  aasuaes  soae 
means  of  deadlock  detection  and  recovery.  Oar  simulation  aasuaes  such  a 
systea,  but  we  do  not  model  the  actual  effects  of  deadlook. 

Transaction  T^  must  aoeeas  five  loekable  units  of  data,  U^-U^.  tach 
lockable  unit  requires  10  tlae  units  to  process.  Assume  that  locks  for 
U1  and  U^-U^  are  evallable,  and  that  the  lock  request  for  each  requires 
one  tiae  unit.  U2,  however,  is  locked  and  will  reaain  looked  until  50 
tiae  units  after  Tf  starts.  Accessing  the  loekable  ta  in  the  natural 
order,  U1#  U2,  UJt  U^,  U^,  proceeds  as  in  Tsble  1. 
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Activity 


Time  Required  Time  When  Complete 


Lock  U.  1  1 
Process  U.  10  11 
Lock  U-  39  50 
Process  U_  10  60 
Lock  U.  1  61 
Process  U-  10  71 
Lock  *  1  72 
Process  U„  10  82 
Lock  Us  1  83 
Process  U5  10  93 


Table  1 

The  alternative  order  U1#  U^,  U^,  U^,  proceeds  as  in  Table  2. 
Activity  Time  Required  Time  When  Complete 


Lock  U  1  1 
Process  U.  10  11 
Lock  U,  1  12 
Process  U  10  22 
Lock  U.  J  1  23 
Process  10  33 
Lock  U  1  34 
Process  U  10  44 
Lock  U  5  6  50 
Process  U.,  10  60 


Table  2 

This  example  shows  that  even  in  a  very  simple  case  the  order  of 
processing  can  have  a  substantial  effect  on  the  amount  of  real  time 
required  to  process  a  given  transaction.  We  have  devised  several  means 
of  improving  the  order  of  access  to  data  items  to  avoid  long  waits 
caused  by  locking. 


In  Section  2  we  outline  three  new  look  managera  and  several  algorithms 
for  using  them.  In  section  3  we  describe  and  justify  a  simulation  of 
combinations  of  look  managera  and  protooola  from  Section  2.  Section  4 
oonsists  of  a  summary  and  oonelualons.  The  simulation  program  Is 


Included  as  Appendix  A,  and  the  results  as  Appendix  B 


2.  Algorithms 

In  this  section  we  present  soae  new  look  aanagers  and  the  trsnsaotlon 
managers  that  use  then.  First  we  define  the  context  In  whioh  we  will 
operate. 


We  will  assume,  for  the  sake  o  this  discussion,  a  centralized 
(non-distrlbuted)  database  that  uses  looks  and  deadlook  detection. 


A  concurrent  database  system  oust  have  lock  manager,  which  we  abbreviate 
LM.  IMO  below  is  an  example.  Transactions  get  access  to  data  by 
requesting  locks  from  the  lock  manager,  and  return  the  resources  to  the 
system  by  informing  the  LM  of  the  release.  The  lock  manager  may  cause 
transactions  to  become  blocked  or  unblocked.  It  maintains  queues  for 
those  data  items  that  are  requested  while  locked. 


The  acquisition  portion  of  the  usual  look  manager  may  be  viewed  as  the 
following: 

Procedure  LMO(Lockable_Unit_ID,  Lock_Level,  Transaction_ID) ; 

Begin 

If  Lockable_Unit_ID  is  available  at  Lock_Level  then 
Record  lock  for  Transaction_lD 
Else  begin 

Place  Transact ion_ID  in  queue  for  Lockable_Unit_ID; 

Block  Transaction~ID; 

Cause  system  to  dTspatoh  another  transaction 
End 
End; 


A  transaction  manager  (TM)  is  sn  entity  that  interprets  high-level 
queries  by  issuing  lower-level  requests,  including  negotiations  with  the 
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lock  manager.  Each  transaction  has  a  logical  transaction  manager, 
although  the  actual  code  might  be  shared.  TMO  is  an  example. 

Here  is  how  the  usual  transaction  manager  deals  with  a  series  of  data 
items  D1#  ....  Dn,  which  may  be  processed  in  any  order: 

Transaction  manager  TMO: 

Begin 

For  i  :s  1  to  n  do  begin 

LM0(D. ,  Lock_Level,  Trans_ID); 

Process  D. 

End 

End; 

A  given  transaction  running  on  a  given  database  at  a  particular  time 
will  find  certain  data  Items  (which  we  will  refer  to  as  lockable  units 
or  LU's)  available  at  certain  times  but  not  at  others.  In  our 
simulation  we  present  this  as  a  fixed  background.  Queues  of  fairly 
stable  length  tend  to  form  waiting  for  high-activity  data  items.  Our 
simulation  includes  both  lockable  units  with  conflicts  at  certain  times 
and  LU's  with  fixed-length  queues.  We  also  simulate  processing  delays 
for  the  various  lovable  units. 

The  time  required  to  acquire  an  available  lock  is  taken  as  the  unit. 
This  lock-request  delay  is  chosen  as  (relatively)  large  as  it  is  on  the 
assumption  that  the  lock  manager  will  at  least  occasionally  have  an 
entry  queue. 

LMO  is  not  useful  in  determining  whether  or  not  to  process  an  LU 
immediately.  A  more  useful  lock  manager,  LM1,  would  have  two 
lock-request  entry  points:  one  blooking  and  one  non-blocking.  The 
blocking  request  is  as  LMO,  The  non-blocking  request  returns  True  oT 


False,  depending  on  whether  the  lock  is  presently  available.  This  is 

LMl ,  assuming  LNO  is  still  available  as  a  blocking  entry  point: 

Function  LM1(Lockable_Unit_ID,  Lock_Level,  Transaction_ID):  Boolean; 
Begin 

If  Lockable_Unit_ID  is  available  at  Look_Level  then  begin 
Record  lock  for  Transaction_ID; 

LMl  : a  True 

End 

Else  LMl  :s  False 
End; 

In  LM2,  if  the  lock  is  not  available,  the  transaction  is  entered  into 
its  queue.  This  requires  slight  changes  in  the  blocking  and  release 
parts  of  the  lock  manager:  the  transaction  at  the  head  of  the  queue  may 
not  be  blocked,  and  the  requesting  transaction  may  already  have  the 

lock. 


Funotion  LM2(Lockable_Unit_ID,  Lock_Level,  Transaction_ID) :  Boolean; 
Begin 

If  Lockable_Unit_ID  is  already  locked  by  Transaction_ID  then 
LH2  :=  True 

Else  if  Lockable_Unit_ID  is  available  at  Lock_Level  then  begin 
Record  lock  for  Transaction_ID; 

LM2  is  True 
End 

Else  begin 

If  Transact ion_ID  is  not  in  Lockable_Unit_ID's  queue  then 
Place  Transaction  ID  in  Lockable  Unit_ID's  queue; 

LM2  :=  False 

End 

End; 

It  is  possible  to  propose  a  variety  of  algorithms  that  use  LMl  or  LM2. 
We  define  and  simulate  three  such  algorithms. 


Our  first  TM  makes  blocking  requests  only  when  an  entire  pass  through 

the  LU's  using  non-blooking  requests  produces  no  results.  It  may  be 

used  with  either  LMl  or  LM2  (as  may  TM2  and  TM3). 

Transaotion  manager  TM1: 

Begin 
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While  unprocessed  units  remain  do  begin 

Repeat  process  list  using  nonblocking  requests 
Until  a  pass  finds  all  unprocessed  units  locked; 
If  at  least  one  unprocessed  unit  remains  then 
Make  a  blocking  request  for  an  unprocessed  unit 

End 

End; 


The  second  TM  makes  a  pass  through  the  list  of  LU's  using  nonblocking 
requests  and  then  arbitrarily  selects  an  unprocessed  LU  to  wait  for; 
these  two  actions  are  alternated  until  no  LU's  remain  unprocessed.  It 
differs  from  TM1  in  that  is  does  not  wait  for  an  entire  unsuccessful 
pass  before  issuing  a  blocking  request. 

Transaction  manager  TM2: 

Begin 

While  unprocessed  LU's  remain  do  begin 

Process  list  of  LU's  using  nonblocking  requests; 

If  at  least  one  unprocessed  LU  remains  then 

Pick  an  unprocessed  LU  and  make  a  blocking  request  for  it 

End 

End; 


TM3  makes  still  fewer  nonblocking  requests.  It  makes  a  nonblocking  pass 
and  then  a  blocking  pass.  It  takes  what  is  immediately  available,  than 
waits  for  what  is  not. 

Transaction  manager  TM3: 

Begin 

Process  list  of  LU's  using  nonblocking  requests; 

Process  list  of  LU's  using  blocking  requests 

End; 

Transaction  managers  TM1,  TM2,  and  TM3  all  eventually  choose  arbitrary 
lockable  unite  for  which  to  issue  blocking  look  requests;  in  the 
simulation  it  is  the  first  unprocessed  LU.  The  one  arbitrarily  chosen 
may  not  be  the  best.  Another  LU  may  beoome  available  muoh  earlier.  We 
would  like  always  to  be  sure  of  selecting  the  best  one.  Using  the  lock 
managers  discussed  so  far,  that  oannot  be  done. 


To  do  so  we  oust  sake  more  substantial  aodiftoationa  to  tha  look 


manager.  We  need  a  lock  aanagtr  that  can  be  given  a  list  of  requests 
and  instructed  to  unblock  the  transaction  and  return  the  lockable  unit's 
ID  when  any  of  the  lockable  units  becoae  available. 


LM3  has  three  parts:  LM3I  (Initial)  for  nonblocking  requests,  LM3W 
(Wait)  for  oultiple  blocking  requests,  and  LM3R  (Release)  for  releasing 
locks.  (Each  of  the  previous  lock  aanag era  also  aust  have  a  release 
portion,  but  all  have  been  so  siailar  to  LMO's  that  we  have  oaltted 
discussing  them.)  LM3  generates  the  blocking  request  list  in  LM3I. 

Function  LH3I(Lookable_Unit_Id,Lock_Level,Transaotion_ID) {Boolean; 

Begin 

If  Lockable_Unit_ID  is  already  held  by  Transact ionID  then 

LM3I  :»  True  ” 

Else  if  Lockable_Unit__ID  is  svallsble  at  LockJLevel  then  begin 

Record  lock  for  Transaction  ID; 

LM3I  :=  True 

End 

Else  begin 

If  Tranaaction_ID  is  not  in  Lookable_Unlt_ID'a  queue  then 
Place  Transactlon_ID  in  Lookable__Unit_ID'8  queue; 

If  Or  list  for  Transaction_ID  does  not  elclst  then 
Create  an  Or_list  for  Tranaaction_ID; 

Insert  Lockable  Unit  ID  in  Or  list; 

LM3I  :*  False 

End 

End; 


Funetlon  LM3W(Transaction_ID)  :  Locks b  1  e_Un i t^I D_t ype ; 

Begin 

If  Or_llst  la  enpty  or  non-existent  then  LM3W  :«  error 
Bine  If  no  look  in  the  Or_llst  is  available  then  begin 
Blook  Transact ion_ID;  ~ 

Dispatch  another  transection 

End 

Else  begin 

Select  on  swarded  look; 

Reeove  that  look  free  the  Or  list; 

LM3W  I ■  Lockable  Unit  XD 

End  " 

End; 
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Procedure  LM3R(Lockable_Unit_ID) ; 

Begin 

If  Lock eb  1  e_Un i t_I D '  a  queue  is  nonempty  then  begin 
Award  the  lock  to  a  transaction  from  the  queue; 

If  transaction  is  waiting  then  begin 
Remove  that  lock  from  the  Or_liat; 

Place  the  Lockable_Unit_ID  where  the  transaction  expects  a 
return  value  from  LM3W; 

Unblock  the  transaction 

End 

End 

End; 


Transaction  manager  TM*J: 

Begin 

Make  a  pass  through  the  list  using  LH3I; 

While  at  least  one  unprocessed  unit  remains  do 
Process(LM3W(Transection_ID)) 

End; 


3  The  simulation 

In  this  section  we  describe  our  simulation. 


An  estimate  of  performance  will  help  determine  the  relative  worth  of  the 
various  methods.  We  chose  to  perform  a  Monte  Carlo  simulation  in  order 
to  produce  reasonable  answers  in  reasonable  time. 

Transactions  are  generated  at  random  within  supplied  parameters.  A 
simulation  of  each  Transaction  Manager/Look  Manager  combination  is  run 
against  each  generated  transaction.  Because  the  algorithms  run  against 
the  same  transactions,  the  results  are  oomparable.  The  oyele  of 
transaction  generation  and  running  of  algorithms  is  repeated  —  here, 
twenty  times  —  and  the  results  averaged. 


We  have  not  modeled  deadlook.  Some  authors  [KUMG81,  QRAY81]  have 


maintained  that  deadlock  is  rare.  In  any  osse,  we  aslntain  that 
deadlock  would  not  substantially  change  the  relative  results. 

We  wished  to  hsve  s  standard  against  which  to  ooapare  each  of  the 
methods.  Including  the  usual  THO.  We  have  defined  an  optlaal  tlae  and 
have  coaputed  it  for  each  transaction.  We  have  ooapared  each  of  the 
algorithms  to  that  standard. 

For  inforaation  on  the  coaputatlon  of  optlaal  tlae,  see  [VARV8A]. 

The  two  statistics  we  reoord  are  tlae  active  and  lock  requests.  Hiniaua 
lock  requests  is  achieved  by  TMO.  The  other  transaction/lock  manager 
combinations  reduce  tlae  active  at  the  cost  of  soae  additional  lock 
requests. 

We  assume  that  a  few  extra  lock  requests  nay  be  tolerated  rather  well, 
but  that  a  doubling  of  lock  requests  should  purchase  very  substantial 
reductions  of  tiae  active.  Accordingly,  our  evaluation  funotlon  is 
(1  ♦  (1  -  R/U)2)  T 

where  T  is  tlae  aotive,  R  is  nuaber  of  look  requests,  and  U  is  lookable 
units. 

To  put  these  nuabers  in  perspootive,  we  have  displayed  the  ratio  of  eaoh 
aethod's  evaluation  to  optlaal. 

laeh  simulation  determines  the  mean  behavior  of  eaoh  of  the  algorithms 
reaming  twenty  transactions.  Twelve  simulations  ware  run,  representing 
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the  cross  product  of  5,  10,  15,  and  20  lockable  units  with  light, 
medium,  and  heavy  activity. 

The  two  probabilities  in  the  setup  parameters  are  not  comparable.  The 
second  is  each  lockable  unit's  probability  of  having  a  queue.  The 
first,  however,  is  the  probability  of  an  adverse  request  in  a  given 
ten-time-unit  Interval.  We  used  those  two  numbers  to  specify  level  of 
activity. 

The  results  of  the  simulation  are  given  in  Appendix  B. 

4  Summary  and  conclusions 

A  transaction  may  wait  for  one  locked  unit  while  it  could  be  processing 
others  that  are  not  locked.  Worse,  some  of  the  other  units  could  become 
locked  in  the  interim.  We  have  presented  several  approaches  to  solving 
that  problem. 

We  have  devised  three  modified  lock  managers,  which  we  call  LM1,  LM2, 
and  LM3.  LMl  and  LM 2  may  be  used  with  any  of  the  transaction  managers 
TM1 ,  TH2,  and  TM3.  but  LM3  is  used  only  with  TM4;  thus,  we  present  seven 
combinations. 

The  performance  of  these  combinations  has  been  simulated  and  compared 
with  optimal  performance.  Each  combination  was  tested  with  transactions 
of  various  sizes  and  with  several  levels  of  oonfliot. 

4.1  Conclusions 
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No  combination  of  transaction  and  lock  aanagars  has  enough  information 
to  achieve  optimal  performance.  We  were  able  to  simulate  optimality 
only  because  all  confllcta  were  known  In  advanoe.  TN4/LM3  achieved  the 
best  performance  in  our  simulation ,  but  might  prove  difficult  to 
implement.  TM3/LM2  performed  almost  as  well  as  TM4/LM3  and  might 
constitute  a  good  practical  choice. 

We  believe  that  either  TM3/LM2  or  TM4/LH3  should  be  considered  for 
implementation  in  database  systems  where  response  time  is  critical. 
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APPENDIX 
THE  PROGRAM 


A 


{(INCLUDE: 'B: LOCGLBLS.DOC ' } 

{( INCLUDE :’ B : LOCTMCAL . DOC • ) 

{ (INCLUDE : ’ B : LOCPARMI . DOC ' } 

Program  Slmulate_locking( Input,  Output,  DetailFlle,  SummaryFlle) ; 


{ 


PROGRAM  TO  SIMULATE  VARIOUS  LOCKING  PROTOCOLS  AND  TO  DETERMINE 
THEIR  EFFECTS  ON  EXECUTION  DELAY  IN  A  DATABASE  SYSTEM. 

WRITTEN  BY  Donald  A.  Varvel,  August,  1984 
This  program  was  written  as  part  of  the  author's  work  on  an 
USAF-SCEEE  grant  June,  1984-August,  1984.  and  is  based  on  ideas 
developed  by  Donald  A.  Varvel  and  William  Perrizo. 

The  files  Input  and  Output  are  assumed  to  be  Interactive  and 
are  used  to  obtain  parameters.  DetailFile  receives  a  record  of 
each  lock  attempt  and  the  processing  of  each  lockable  unit.  It 
should  usually  be  NUL.  Summer yFile  Is  the  main  simulation 
output,  and  should  be  CON  (CRT  screen)  or  PRN  (the  printer). 

This  version  of  this  program  is  written  for  Microsoft  Pascal 
running  under  MS-DOS  on  a  Zenith  Z-100.  Because  of  limitations 
on  disk  space  at  compile  time,  it  has  been  divided  into  a 
PROGRAM  and  several  UNITS  and  MODULES. 

OPERATION: 

The  main  program  sets  some  parameters  and  then  generates  a 
number  of  simulated  transactions  on  which  to  try  the  various 
combinations  of  transaction  managers  and  lock  managers. 
MAKETRANS  generates  transactions  randomly  within  the  given 
parameters  and  MAKEDELAYS  generates  random  processing  delays. 
These  are  the  only  random  processes  in  the  simulation.  All  of 
the  transaction  managers  are  run  against  the  same  transactions 
(by  SIMTRANS) ,  so  the  results  for  a  given  transaction  are 
strictly  oomparable. 

As  a  standard  of  comparison,  the  procedure  OPTIMAL  has  been 
provided.  It  operates  with  more  information  than  a  real 
transaction  manager  would  have,  and  so  does  not  represent  s 
practical  implementation. 


Uses  Globlds,  Tmcal,  Parmi;  (  Unit  interfaces  } 


I,  J  t  Integer; 

ID  :  1.. Algos; 

Norml,  Norm2  :  Resl; 
Seed  t  Integer «; 
f  t  T_L_Ptr; 
InStr"’«"*Lstring(25) ; 


{  Loop  oontrol,  etc.  } 

{  Used  in  generating  totals  > 

{  Normally-distributed  random  numbers  ) 

{  Uniform  random  number  seed  } 

{  Auxiliary  pointer  for  Units  ) 

{  Input  string  for  overriding  defaults  ) 
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Answer  :  Char; 

N_To  Sia  :  Integer; 


{  Single-character  Input  ) 

(  Nuaber  of  transactions  to  simulate  } 


. . . . . 

Procedure  Opt lasl (R_Unlts  :  Integer);  Extern; 

(•aaeeeeeeeeeeeeeeeeeeeeeaeeeaeeeaeeaeeeeeeeeeeeeeeeeeeeeeeeaeeeeee) 

Function  Max(A(  B  :  Integer)  :  Integer;  Extern; 

[•••eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee) 

Function  RANDOM(var  Seed  :  Integer**)  :  Real;  Extern; 

{eeeeaeetaeaeeeeeeeeeeeaeeeeeeeeeeeaaeeeeaeeaseeeeeeeeeeeeeaeaeeeee} 

Procedure  NORHAL(Var  Seed  :  Integer A;  Var  Result  1,  Result2  :  Real);  Extern; 

{•••eeeaeaeeeeeeeaeeeeaaaaeaaaaeeeeeaeaeaeeeaeaaaaaaaaaaaaaeaaeaaaa) 

Procedure  TMO(LU_Nun  :  Integer); 

{  Simulates  the  usual  blocking  transaction  } 

{  aanager  with  calls  to  look  manager  0.  } 

Var 

I  :  Integer; 

Begin 

Present  time  :*  0;  (  Simulated  dock  ) 

For  I  :«  1  to  LIMlua  do  begin 

Avall[I]  :t  Maxlnt;  {  Initialization  } 

Present_time  :>  Present_tlae  ♦  LNO(I);  {  Get  look  } 

Wrlteln(DetallFile,  'Lock  Is3»  '  '»  Present__tine:6); 

Present_tiae  tt  Presenttime  ♦  Delay[I];  {  Process  ) 

WritelnCDetailFlle,  'Process  #',  1:3*  '  '•  Present  tiae:6) 

End; 

Accumulate! Present_tlme,  LU  Hum*  ID);  {  For  averages  ) 

Summer yjStats ( FLOAT ( Presentation ) *  FLOAT (LU_Hum) ) 

End ;  ~  ~ 

. . . 

Procedure  TM l( Function  Lock_Man ( Loo_Rua i  Integer)  :  Boolean;  LU_Nua  :  Integer); 
l  Transaction  aanager  1  from  the  paper:  )  ” 

(  While  unprocessed  units  remain  dm  begin  ) 

{  Bepeat  Make  nonblocking  pass  through  list  } 

{  Until  a  pass  aoquires  no  looks;  ) 

(  Issue  a  blocking  request  for  sons  unit  ) 

(fad  ) 

Var 

I,  LHjCalls  :  Integer; 

Flag  7  Boolean; 

Done  :  Boolarray; 

Renaming  :  Integer; 


Begin  (  TNI  ) 

(  INITIALIZATIONS  } 
ID  :■  ID  ♦  1| 

Remaining  :*  LU  Hum) 

LM_Calls  is  0; 


U 


Present_time  :  =  0; 

For  I  :*  1  to  LU_Num  do  begin 
DoneCI]  :*  False; 

Avail[I]  :=  Maxint 
End; 

(  NON-BLOCKING  PASSES  } 

While  Remaining  >  0  do  begin 
Repeat 

Flag  :*  False;  (  Flag  records  recent  lock  acquisition  } 

For  I  :  =  1  to  LU_Num  do 

If  Not  DoneCI]  then  begin 
LM_Calls  :=  LM_Calls  ♦  1; 

If  Lock_ManCI)  then  begin 

Present_time  :=  Present_time  ♦  Lock_Request_Delay ; 

Flag  :s  True; 

WritelnCDetailFile,  'Lock  f',  1:3,  '  '*  Present_time:6) ; 

Present_tlme  :  =  Present_time  ♦  DelayCI]; 

WritelnCDetailFile,  'Process  I',  1:3,  '  ',  Present_time:6) ; 
Remaining  : =  Remaining  -  1; 

DoneCI]  :*  True 
End  {  Then  part  } 

Else  begin 

Present_time  :*  Present_time  ♦  Lock_Request_Delay; 
WritelnCDetailFile,  'Lock  #',  1:3,  TCu)  Present_tlme:6) 

End 

End  {  If  Not  DoneCI]  ...  ) 

Until  Not  Flag; 

{  WAIT  FOR  A  LOCKABLE  UNIT  ) 

{  Find  first  not  done  } 

I  :>  1; 

While  Done[I]  and  (I  <  LU_Mu»)  do  I  :>  I  ♦  1; 

{  Blocking  lock  request  } 

If  Not  DoneCI]  then  begin 

Present_time  t«  Present  time  ♦  LMOCI); 

LM_Calls  :«  LMCalls  ♦  T; 

Remaining  :«  Remaining  -  1; 

DoneCI]  :«  True; 

WritelnCDetailFile,  'Look  #',  1:3,  'Cw)  ',  Present_time:6); 

Present  time  :«  Present_time  ♦  DelayCI]; 

WrltelnTDetallFile,  'Process  1:3,  '  '»  Present_time:6) 

End  {  If  Not  DoneCI]  e.g.,  the  blocking  lock  request  ) 

End;  {  While  Remaining  >  0  ...  ) 

{  Summary  stats  } 

Acoumu late C Present  time,  LM_Calls,  ID); 

Summary  statsCFLOA?CPresent~tlae),  FLOAT (LM  Calls)) 

End; 

{eeeeeeeeseeeoeseeeeeeeeeeeeeseeeeeeeeeoeoeeeeeeeeeeeeeeoeeeeeoeeee) 

Procedure  TW2C Function  Lock_Man ( Loc_Num:  Integer):  Boolean;  LU_Num  :  Integer); 
(  Transaction  manager  2  from  the  paper:  )  ” 

{  While  unprocessed  units  remain  do  begin  } 


wsMPSBmzsr-  xxs&u&t+v  ■ 


{  Hake  a  nonblocking  pass;  } 

{  If  unprocessed  units  regain  than  } 

{  Issue  blocking  request  for  a  unit  } 

{  Cad  ) 

Var 

I,  LM_Calls  :  Integer; 

Done  :  Boolarray; 

Remaining  :  Integer; 

Begin 

{  INITIALIZATIONS  ) 

ID  : r  ID  ♦  1; 

Remaining  : =  LU_Num; 

LM_Calls  :*  0; 

Present_tine  : =  0; 

For  I  :«  1  to  LU_Num  do  begin 
Done[I]  j*  False; 

Availdl  :*  Maxlnt 
End; 

While  Remaining  >  0  do  begin 

{  Nonblocking  pass  ) 

For  I  :>  1  to  LI)  Nua  do 

If  Not  Done[ll  then  begin 
LMCalls  :*  LM_Calls  ♦  1; 

If  Lock_Han(I)~then  begin 

Presenttime  s«  Present_time  ♦  Lock  Request_Delay ; 
WritelnToetailFile,  ’Look  #',  1:3.  T  Preaentjtime: 6); 

Present_tine  t>  Preaentjtime  ♦  Delay Cl] ; 

WritelnToetailFile,  ' Process  ,  1:3,  '  Present_time:6) ; 

Remaining  :*  Remaining  -  1; 

Donetl]  :«  True 
End  {  Then  part  } 

Else  begin 

Present_tiee  :■  Preaentjtime  ♦  Look  Request_Delay ; 
WritelnToetailFile,  'Look  1:3.  T(u)  Preaentjtine:6) 
End 

End;  (  If  Not  Donetl]  ...  ) 

(  WAIT  FOR  A  LOCKABLE  UNIT  } 

(  Find  first  not  done  ) 

I  sx  1; 

While  Donetl]  and  (I  <  LUJhm)  do  I  :•  I  ♦  1; 

If  Not  Donetl]  then  begin"  {  Blocking  look  request  ) 

Present  time  :■  Present  tine  ♦  LHO(I); 

LMjCalls  u  LMjCells  ♦  T; 

Remaining  :■  Remaining  -  1; 

Donetl]  :■  True; 

Writeln ( Detei lFi le ,  'Look  #*.  1:3,  '(w)  Preeent_time:6>; 
Present  time  is  Present  time  ♦  DeleyCX]; 

Writeln?DeteilFile,  'Presses  It 3,  '  Preaentjtime: 6? 

End  {  The  bleefcieg  isek  request  I 
End;  (  While  Remeining  >  0  J 


{  Generate  suaaary  totals  ] 

Accuaulate(Present_tiae,  LH_Calls,  ID); 

Sumaary_stats(FLOAT(Present_tiae),  FLOAT (LH_Ca  11s) ) 

End; 

{•••eaaaaaeaeaeeeaaeaeaeeseeseeeaaeeeeeeeeeeeeaeeeeaaaaeeaeeeeeeaaa} 

Procedure  TM3(Function  Lock_Man ( Loc_Nua :  Integer):  Boolean;  LU_Num:  Integer) 
{  Transaction  manager  3  From  the  paper:  ) 

{  Process  list  using  nonblocking  requests;  } 

(  Process  list  using  blocking  requests  ) 

Var 

I,  LMCalls  :  Integer; 

Done  :  Boolarray; 

Begin 

t  INITIALIZATIONS  ) 

ID  :=  ID  ♦  1; 

LM_Calls  :=  0; 

Present_time  :=  0; 

For  I  :=  1  to  LU_Num  do  begin 
DoneLI]  : =  False; 

Avail[I]  :s  Maxint 
End; 

{  NON-BLOCKING  PASS  3 
For  I  :s  1  to  LU_Num  do  begin 
LM_Calls  ;s  LM_Calls  ♦  1; 

If  Lock_Man(I)  then  begin 

Present_time  :*  Present_tine  ♦  Lock_Request_Delay ; 
Writeln(DetailFile,  'Look  #',  I:3»  '  ',  Present_time:6); 

Present_time  :a  Present_tiae  ♦  DelayCI]; 

Writeln(DetailFile,  'Prooess  #',  Is3»  '  ',  Present_tiae:6) ; 

Done[I]  :*  True 
End  (  Then  part  } 

Else  begin 

Present_tlne  :>  Present  time  ♦  Lock  Request  Delay; 
WritelnlDetailFile,  'Look  #’,  1:3,  7<u)  ',  Present_tlme:6) 

End 

End;  {  For  ) 

{  BLOCKING  PASS  ) 

For  I  :»  1  to  LU  Nua  do 
If  Not  DonetlT  then  begin 
LM_Calla  :•  LM_Calls  ♦  1; 

Preaent_tiae  Present_time  ♦  LMO(I); 

WrltelnToetailFile,  'Look  1:3,  '(w)  ',  Present_tiae:6) ; 

Present  tiae  :«  Preaent_tlaa  ♦  Delay [I 3; 

WritelnTDetallFlle,  'Prooess  #',  1:3,  '  ',  Present_tiae:6) 

End;  (  If  snd  For  } 

{  Suaaary  } 

Aoeuaulate( Present  tiae,  LH_Calls,  ID); 

Suaaary_stats(PLOA?(Present~tl"*) ,  FLOAT(LMjCalls) ) 


(IHIIIIIHIHIIIHIIIIlfHHHHMIllHHI 

Procedure  TMM(LU_Num  :  Unit_Range);  Extern} 


} 


{eeeeeeeeeeeeeaeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeseeeeeeeseaeeeeeeeeeee) 

Procedure  Getanswer( Const s  S:  String;  Ver  Answer:  Char);  Extern; 

{  Get  a  1-character  reaponae  from  keyboard  ) 


(•••••teeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee) 

Procedure  Add_Links(Var  List  :  T_L_Ptr;  Start,  Finish  :  Integer);  Extern 

{•eeeeeeieeeeeeeeeeeeeeteeeeeeieeieeeeeeeeeeeeeaeeeeeeeeeeeeieeeeee) 

Procedure  Terminate(Var  List  :  T_L_Ptr);  Extern; 

(•••■eeeeaeeeeeeeeaeeeeaeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee) 

Procedure  MakeTr ana (Var  U  :  Un_Vec); 

Var 

I,  Tick,  Lia,  Duration  :  Integer; 

Begin 

For  I  :*  1  to  LU_Ho  do  begin 
{  Queue?  ) 

If  RANDOM (Seed)  <*  Q  Prob  then  begin 
New(U[I]) ; 

NORMAL (Seed,  Noral,  Nora2); 

Duration  :*  TRUNC ( FLOAT (Q_Std_Dev)  •  Moral)  ♦  Q_Mean_Len; 

If  Duration  >  0  then  begin  ~  ~ 

Mew<UtI)>; 

U[IJ*.Tiae  :*  Duration; 

U[I]'*.Mext  :«  Nil 
End  (  Then  } 

End  {  Then  } 

(  No  queue;  siaulate  activity  ) 

Else  begin 

U[I]  :=  Nil; 

Tick  :«  ( -LockBar  -  2  •  Lock_Sigaa)  DIV  10  •  10; 

Lia  :■  -N  •  Tick; 

While  Tiok  <  Lia  do 

If  RANDON(Seed)  >  Ad_Req  then  Tiok  :«  Tick  ♦  10 
Else  begin  *" 

NORMAL (Seed,  Moral,  Nora2) ; 

Duration  :<  TRUNC (FLOAT ( Look JSi gaa )  *  Moral)  ♦  Lock_Bar; 
If  Duration  <*  0  then  Tiok  Tiok  ♦  10  ” 

Else  begin 

Add_Links(U[X],  Tiok,  Duration  ♦  Tiok); 

Tick  :>  (Tick  ♦  Duration)  DIV  10  *  10  ♦  10 
End  (  Elaa  ) 

End;  {  Else  and  While  > 

If  UIIJ  <>  Nil  than  Terminate (U[X)) 

End  {  Else  ) 

End  <  For  1 
End; 

leeeeeeaeaeeeeeeeeeeaeeeeeeeeaaeeeeeeeeeeaeeeeaaeeeeeaaeeeaeeaeaaaa) 
Procedure  DiepTrone; 


(  Display  tranaaetlon  ) 


Var  P  :  T_l_Ptr; 

I  :  Integer; 

Begin 

WritelntSummaryFile) ;  Writeln(SummaryFHe) ; 

WritelntSummaryFile,  'Transaction  (•  s  steady-state  queue  of  given  length)'); 
WritelntSummaryFile,  'Unit  Delay  Activity  Activity  ...'); 

For  I  :=  1  to  LU_No  do  begin 

WritetSummaryFile,  1:4,  '  ',  Delay[I]:3,  '  '); 

P  :=  UnitsCI]; 

If  P  <>  Nil  then  begin 

If  PA.Next  =  Nil  then  WritetSummaryFile,  PA.Time:8) 

Else  Repeat 

WritetSummaryFile,  P*.Time:4,  PA.NextA.Time:4,  '  '); 

P  :=  PA. Next*. Next 
Until  PA.Next  =  Nil 
End; 

WritelntSummaryFile) 

End 

End; 

. . ■•••*•••••••••••••••••••••••••••••••••#••*•••••} 

Procedure  SimTrans; 

{  Simulate  } 

Var  I  :  Integer; 

Begin 

Vfriteln(SunmaryFile) ; 

WritetSummaryFile, '  TM  LH  Time  Active  Lock  Requests'); 
WritelntSummaryFile,  '  Evaluation  Eval/OptEval ' ) ; 

WritetSummaryFile,  '  Optimal  '); 

Optimal (LU_No) ; 

WritetSummaryFile,  '  0  O'); 

ID  :x  1; 

TMO(LU_No); 

WritetSummaryFile,  '  1  1  '); 

TNKLM1,  LU_No); 

WritetSummaryFile,  '  1  2 

TM1tLM2,  LU_No); 

WritetSummaryFile,  »  2  1  •){ 

TM2(LM1,  LU_No); 

WritetSummaryFile,  '  2  2  '}; 

TM2(LM2,  LU_No); 

WritetSummaryFile,  '  3  )  ')j 

TH3(LM1,  LU_No) | 

WritetSummaryFile,  ’  3  2  '); 

TH30M2,  LU_No ) ; 
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Wr  1  ti;  (  Summary  K1  le ,  *  M  J  '  )  j 

TM*4(  LU_No ) 

End ; 

. . MIIMMMHMMHHMHMMMMMMHHHIMMMHHMj 

Procedure  MakeDelays (Var  D  :  Intarray;  LNo  :  Integer; 

Var  S  :  Integer*);  Extern; 

{  Generate  random  processing  delays  ) 

{  uniformly  from  3  to  15.  I 


. . ee.eeeeeeeeeeeeeseeeeeaeeeeeeeeeeeeeeeeeeeeeessej 

Begin  {  MAIN  PROGRAM  ) 


Rewrite(DetailFile) ; 

Rewrite(SummaryFlle) ; 

Lock_Request_Delay  :=  1; 

Getanswer ( ' Do  you  wish  to  override  default  setup  values  (Y/N)?',  Answer) 
De_fault ; 

While  (  Answer  =  'Y')  or  (Answer  =  'y')  do  begin 
Override; 

Display (Output) ; 

Getanswer ( 'Any  more  changes  (Y/N)?  Answer) 

End; 

Display(SummaryFlle) ; 

Write( 'Random  number  seed?  '); 

Readln(Seed) ; 

Seed  :=  Seed  MOD  32768;  l  Avoid  overflow  on  first  call  to  RANDOM  ) 

Repeat  {  Main  program  loop  } 

For  I  :=  0  to  Algos  do  begin  {  Clear  totals  } 

Totals [I]. Time  :=  0; 

Totals [I], Requests  :=  0 
End; 

Repeat  (  Minor  input  loop  } 

Write( 'Enter  number  of  lookable  units  per  transaction:  '); 

Read In (LU  No) ; 

If  ( LU_No  <  1)  or  (LU_No  >  MaxJJnits)  then 

Wrlteln( 'Must  be  in  0  <  N  <»  ',  Max  Units: 1,  '.') 

Until  (LUNo  >  0)  and  (LU_No  <■  MaxJJnitsT; 

Repeat  (  Minor  input  loop  ) 

WrlteCEnter  number  of  transactions  to  simulate:  '); 
Readln(NJTo_Sim) ; 

If  (N  To~Sim  <  1)  then  Wrlteln( 'Must  be  positive.') 

Until  (N'To^Sim  >  0); 

{  Simulate  M_To_Sim  transactions  } 

For  I  u  1  to  N  To  Sim  do  begin  " 

MakeTrans ( UnTtsT ; 

MakeDelays  (Del  ay.  LU__No,  Seed); 

DispTrana; 


SimTrans 

End; 

Averages ( N_To_Sim) ; 

Getar>awer( 'Simulate  another  transaction?  (Y/M)  ' ,  Answer) 
Until  (Answer  <>  * Y * )  and  (Answer  <>  'y') 

End. 


{ $ I NCLUDE : * B : LOCGLBLS . DOC  * } 
(IINCLUDE: ’B: LOCTMCAL.DOC*} 


. . . . . . . 

{•  Module  containing  code  to  simulate  the  imaginary  algorithm  •} 
{•  OPTIMAL  and  the  <ith  modified  transaction  manager.  Each  •} 
{*  contains  some  internal  procedures;  notably,  in  the  case  of  *} 
{•  TMU,  the  two  parts  of  the  third  modified  lock  manager,  •) 
{*  LM3I  and  LM3W.  *) 

. . . 

Module  Locopt; 

Uses  Globids,  Tmcal; 


Function  Max (A,  B  :  Integer)  :  Integer;  Extern; 


Pro  .d*-e  OptimaKLU  Nua  s  Integer); 

. . f.eeeeeeeee.eeeeeeeeeeeeeeeeeeeee.e.eeeeeeeeeeee., 

{•  OPTIMAL  determines  a  lower  bound  on  prooesalng  the  given  *} 
(*  transaction  using  locks.  By  assumption  it  uses  only  as  •) 
{*  many  lock  requests  as  there  are  lockable  units  and  gets  •) 


(*  into  all  queues  at  initiation  time.  It  does  a  search  of  *) 
{•  the  decision  tree  of  orders  of  lock  requests  to  find  one  •) 
{•  that  results  in  the  least  delay.  The  treesearch  selects  *) 
{•  a  first  order  of  requests  that  is  likely  to  be  good,  and  •) 


{•  performs  forward  pruning  according  to  two  criteria;  its  •} 
{*  worst-case  performance  is  O(NI),  but  is  usually  0(N).  *) 

(•  #) 

(*  OPTIMAL  contains  the  recursive  treesearch  Findbest,  which  •} 
{•  in  turn  contains  Sort.  •} 

{eeeeeeeeaeeeeeeeeaeeeeeeaeeeasaaaaeeeeaeeaaaaeeeaeeeaaaaeaasae} 

Type 

Lowjtec  *  Record 
When  :  Integer; 

Proc  :  3.. 15 


End; 


Var 

Cutoff  :  Integer;  {  Best  time  found  so  far.  If  it  oan't  ) 

(  be  underout,  prune  the  present  branch.  ) 

I  :  Integer; 

Remaining  :  Unit_Range;  {  How  many  units  remain  to  be  processed?  ) 

Done  :  BoolarrayT 

Low  Vac  :  Array[0. .Max_Unlts]  of  low_Ree; 

(  Used~ln  oonputing  Lowerbound  ) 


23 


Function  Findbest  :  Integer; 

(eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee) 

(*  Recursive  decision  tree  sear oh f  with  outoffa.  •) 

{eeeeeeeeeeeeeeeeeeeeseeseeaaaaaaaaaaaaaaaaaaaaaaaa) 

Type 

ND_Rec  *  Record  {  Units  not  yet  dona  and  weights  for  sorting  } 

U  :  Unit_Range; 

Val  :  Integer 
End; 

ND_Vec  s  Array [Unit_Range]  of  MD_Ree; 


Var 

Getlock,  Best_Path,  Lowerbound,  Pathtiae  :  Integer; 
Cursor  :  0. .HaxJJnits; 

I  :  Unit_Range; 

Notdone  T  HD_Vec; 

P  :  T_L_Ptr;~ 

J,  Cub  Delay  :  Integer; 


Procedure  Sort(Var  Tosort  :  ND  Vec;  N  :  Unit  Range); 

{••eeeeeeeeeeeseaeeeseeaeseeesesesaeeeseeeeeeeeeeseeee} 

{•  Linear  insertion  sort,  in  place.  An  0(H”2)  sort  •} 

{*  Bakes  sense  here,  since  it  will  be  oalled  far  •) 

{•  sore  tlaes  with  saall  N  than  with  large.  This  •} 

{*  sort  beats  Shellsort  and  Quicksort  for  N  less  *) 

{*  thin  about  15,  and  N  will  seldom  be  that  large.  •) 

I •eeeeeeeeaeeeeeeeeeeeessseseeeeeeeeeeeeeseeeeeeeeeeee  j 


Var 

I,  J,  Temp Val  :  Integer; 

TempU  j  Unit_Range; 

Begin 

For  I  :>  t  to  N-1  do  begin  {  Elements  1..I  are  in  order  } 

TempU  :s  Tosort[I*1].U; 

TeapVal  :«  Tosort[I*1].Val; 

J  s*  I; 

While  TeapVal  <  Tosortt J].Val  do  begin 
Tosort[J+1].U  ;*  Tosort[J].U; 

TosorttJ*  IJ.Val  :*  Tosort  [J].  Val; 

J  :>  J-  t; 

If  J  <  1  then  Break  {  Nonstandard  Pasoalt  Leave  innaraoat  loop  ) 
End;  {  While  ) 

Tosortt J*1].U  :*  TempU; 

TosortC J*1 l.Val  ;*  TeapVal 
End  {  For  I  ...  } 

End; 

( eeeeeeeeeeeeeeeeeeeeeeeeeeeeeesesseeaeeessesssss ) 

Begin  {  Findbest  } 

Xf  Raaaining  «  1  than  begin 

(  Only  one  unit  remains  } 

I  t«  1;  While  DonetX]  do  I  ie  X  ♦  1; 

Get look  se  LMO(X)  ♦  DelayCI]; 

Xf  Preaent_tiae  ♦  Oetlook  <  Cutoff  then  Cutoff  n  Preaentjtiae  ♦  Oetlook; 
Findbest  i«  Oetlook  “ 


End  (  Else  if  Remaining  *  1  ...  1 

Else  begin 

{  More  than  one  unit  remains  } 

Best_Path  :=  Maxint; 

Lower bound  :*  0; 

Cursor  :*  0; 

(  Compute  Lowerbound  } 

For  I  ;*  t  to  LU  Num  do 

If  Not  Done Ell  then  begin 
Cum_Delay  :*  LMO(I); 

Low_Vec[0].When  :*  Cum_DclMy; 

LowJfecEOl.Proc  :s  DelayEl]; 

J  :s  Cursor; 

While  Low_Vec£J].When  <  Cum_Delay  do  begin 
Low_Vec£J*l]  • *  Low_VecEJ]; 

J  :*  J  -  1 
End;  (  While  } 

Cursor  : *  Cursor  ♦  1 ; 

Low_Vec [  J  ♦  1  ]  s  *  Low_Vec [  0  ] 

End;  {  Then  and  For  } 

Cum_Delay  :=  0; 

For~I  :s  1  to  Cursor  do  begin 

CumDelay  ;=  Cum_Delay  ♦  Lowjfec  E I  ] .  Proc ; 

Lowerbound  js  Max (Lowerbound,  Low_VecEI].When  ♦  Cum_Delay); 

Cum_Delay  : =  Cum_Delay  ♦  Lock_Request_Delay 
End; 

If  Present_time  ♦  Lowerbound  <  Cutoff  then  begin 
(  Arrange  those  units  not  processed  ) 

(  Generate  weights:  Time  of  next  locking  for  those  units  } 

{  that  are  unlocked  but  which  will  become  locked  again  } 

{  (Note  use  of  crystal  ball).  Processing-time  ♦  9000  ) 

{  for  those  that  are  available  and  will  not  become  ) 

(  unavailable,  and  Release-time  ♦  10000  for  those  that  } 

(  are  presently  locked.  } 

Cursor  :r  0; 

For  I  : *  1  to  LU  Num  do 
If  Not  OoneElT  then  begin 
Cursor  :=  Cursor  ♦  1; 

NotdoneE Cursor 3.U  :»  I; 

If  UnitsflJ  =  Nil  then  NotdoneE Cursor J.Val  DelayEl]  ♦  9000 

Else  if(UnitaEir.Next  »  Nil)and(UnitsEl]*.Time  <«  Present_time) 
then  NotdoneECursorJ.Val  :*  DelayEl]  ♦  9000 
Else  if  UnitsElT.Next  *  Nil  then 

Notdone (Cursor ].Val  :»  UnitsEI]*.Time  ♦  10000 
Else  begin 

P  :*  UnitsEI]; 

While  (P*. Next*. Time  <«  Present  time) 
and  (P'. Next*. Next*. Mext”<>  Nil) 
do  P  :«  P". Next*. Next; 

{  PT  ()  ) 

If  P*.Tlme  >  Present  time  then  NotdoneECursorl.Val  :«  P*.Time 
l  (  PT  )  ) 

Else  if  P“. Next*. Time  >  Present  time  then 


Notdone[Cursor].Val  ;*  PA. Next*. Tine  ♦  10000 
{  <)  PT  } 

Else  NotdonelCursorl.Val  :*  Delay [I]  ♦  9000 
End  (  Else  } 

End;  {  Then  } 

(  Sort  according  to  weights  } 

SortCNotdone,  Cursor); 

{  Search  for  optimal  order,  cutting  off  if  equal  to  ) 
{  a  previously-computed  lower  bound  or  if  unable  to  ) 
{  better  the  best  previous  time.  ) 

I  :  =  1; 

While  (I  <s  Cursor)  and  (Best_Path  >  Lowerbound)  do  begin 
Getlock  :#  LM0(Notdone[X].U)  +  Delay[Notdone[I].U]; 

(  Simulate  processing  the  unit  ) 
DoneCNotdoneCll.U]  j*  True; 

Present_tlme  ;«  Present_tiae  ♦  Getlock; 

Remaining  : =  Remaining  -  1; 

{  Recurse  } 

Pathtime  :s  Flndbest; 

{  Record  best  found  so  far  } 

If  Pathtime  <  Beat_Path  -  Getlock  then 
Best_Path  :*  Pathtime  ♦  Getlock; 

{  Undo  } 

DonelNotdone[I].U]  :«  False; 

Present_time  s«  Present_time  -  Getlook; 

Remaining  :s  Remaining  ♦  1; 

(  Increment  loop  control  ) 

I  :s  I  ♦  1 
End  {  While  } 

End;  {  Then  } 

Flndbest  :*  Best_Peth 
End  {  Else  } 

End;  (  Flndbest  1 

(••eeeeeeeteeeaeeeeeeeeeeeeeeeeeeeeeeeeeeaeeeeeeeeeeeeee} 

Begin  {  Optimal  } 

{  Initializations  } 

Remaining  s*  LU_Num; 

Cutoff  :s  Naxint; 

Present_Time  u  0; 

For  I  :*  1  to  LU_Num  do  begin 
Done[I]  :«  False; 

Avail! I]  :«  Naxint; 

(  Start  all  queues  ) 

If  Unlts[I)  <>  Nil  then  if  UnitsCir.Next  a  Nil  then 
Availll)  j*  Units! I ]A. Time 

End; 

(  Call  recursive  treesesreh  ) 

I  u  Flndbest; 


OptevsKFLOAT(Cutoff),  FLOAT! LU_Num)>; 


{  Record,  for  comparison  ) 


Accumulate(Cutoff ,  LU  Num,  0); 
Summary_Stats(FLOAT(Cutoff ) ,  FLOAT (LU_Num) ) 
End;  {  Optimal  } 


. . . . * . . . ..a, 

{•••••••••••••••••••••••*•••••••••••••••••••••••••••••••••••••••••} 

Procedure  TMJ»(LU_Num  s  Unit_Range); 

(  Transaction  manager  Hi  } 

{  Make  a  nonblocking  pass  through  list;  } 

{  While  units  remain  do  begin  } 

{  Walt  for  one  to  become  available;  } 

{  Process  it  ) 

{  End  } 


Type 

0R_Ptr  =  *0R_Rec; 
0R_Rec  s  Record 
LU  :  Unit_Range; 
Next  :  0R_Ptr 
End; 


0R_List  s  0R_Ptr; 

LM_Calls,  Remaining,  I  :  Integer; 
Selected  :  Unit_Range; 


. . eeeaeeeeeeeaieeeeeeaeaaeaeeeaeeaeeeeaeeaeeeeeaaeae) 

Procedure  Addto0R(LU  ;  Unit_Range;  Var  List  :  0R_Ptr); 

{  Add  a  lockable  unit  to  this  transaction’s  wait-list  } 

Var  P  :  0R_Ptr; 

Begin 

New(P) ; 

P*.Next  :s  List; 

P'.LU  ;=  LU; 

List  :*  P 
End; 

(•eeaeaaeeeeeeeeeeeeeeeaeaeaaaeeaaeaeeeaeeeaeaeeeeaeaeeaeeaeeaeeee) 

Procedure  DelOR(Var  List  :  0R_Ptr;  Val  t  Unlt_Range); 

{  Delete  a  lockable  unit  from  this  transaction's  wait-list  ) 

Var  P  ;  0R_Ptr; 

Begin 

If  List  <>  Nil  then  begin 

If  List".LU  «  Val  then  begin 
P  :>  List; 

List  :■  List*. Next; 

Dispose! P) 

End 

Else  DelOR (List*. Next,  Val) 

End 

End; 


(aeaaaaaaaaaaaaeaaaeeaaeaaaeteeaaaeaeaeaaaeaeaeeeaaaeeeeaeaeaeeaae) 

Function  LM3I(LU  t  Unlt_Range)  t  Boolean; 

(  Look  Manager  3,  non-blocking  part;  ) 
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{  If  unit  is  available  than  return  true  } 


(  Else  begin  } 

{  Add  unit  to  wait-lints  > 

(  Return  falae  } 

i  End  } 


V  :  TLPtr; 

Result  :  Boolean; 

Begin 

If  Units [LU]  s  Mil  then  Result  :  =  True 
Else  if  UnitstLUr.Next  =  Nil  then  begin 
Result  :  =  False; 

AvallCLUl  ;s  present  time  ♦  Units[LU]“.Tiae 

End 

Else  if  Units[LU]".Tlme  >  Present_time  then  Result  :s  True 
Else  begin 

P  :=  UnitsCLU]; 

Result  :x  True; 

While  P“ .Time  <=  Present_tine  do  begin 

If  P“. Next". Time  >  Present_time  then  begin 
Result  :  =  False; 

AvailCLU]  :  =  P“.Next“.Time 
End; 

P  : s  P“. Next”. Next 
End  {  While  } 

End;  l  Else  ) 

If  Not  Result  then  AddtoOR(LU,  OR  List); 

LH3I  ;s  Result 
End; 


{mifHHHiimHimHiimiiHHimmmmiHmiiHiHiiii) 

Function  LM3W  ;  Integer; 

{  Lock  Manager  3,  blocking  part:  } 

{  Set  Selected  to  next  unit  available;  j 
(  Return  delay  for  next  unit  ) 

Var 

P  :  OR  Ptr; 

UP  :  T  L  Ptr; 


Least  :  Unit_Range; 

LeastVal,  Walttine  :  Integer; 

Begin 

If  OR_List  *  Nil  then  LM3W  :«  -1  (  Nothing  left  ) 

Else  begin 

(  Finding  next  la  not  trivial!  > 

Repeat 

LeastVal  :«  Maxlnt; 

P  :•  OR  List; 

While  P~<>  Nil  do  begin 

If  Avail(P*«LUJ  <  LeastVal  then  begin 
LeastVal  ;«  AvalltP\LUj| 

Least  :>  P“.LU 
End; 

P  ta  P*.Next 


2t 


X 


End; 

If  LeastVal  <  Present_time  then 

If  Units(Least]*.Next  <>  Nil  then  begin 
UP  :  =  Units[Least]; 

While  UP*. Time  <  Presentation  do  begin 
If  UP*. Next*. Time  >  Present  time  then 
Avail [Least]  :*  UP*. Next*. Time; 

UP  :=  UP*. Next*. Next 
End  {  While  ) 

End  {  Ifs  } 

Until  Avail[Least]  *  LeastVal; 

DelOR(OR_List,  Least); 

Selected  :  =  Least; 

LM3W  :s  Max(Lock_Request_Delay,  LeastVal  -  Present_ti««) 


End  {  Else  } 

End; 

(iHmimHfimmiMiHiiHiiiiiiHHtHHtifiiimMiiimitij 

Begin  {  Transaction  Manager  A  Itself  ) 


{  Initializations  } 

Remaining  : =  0; 

0R_List  :=  Nil; 

LM_Calls  :=  0; 

Present_time  :»  0; 

{  Non-blocking  run  ) 

For  I  u  1  to  LU_Num  do  begin 
AvalUI]  ;s  Maxint; 

LM_Calls  :  =  LM_Calls  ♦  1; 

If  LM3KI)  then  begin 

Present_time  : *  Present_time  ♦  Lock_Request_Delay ; 
WrltelnCDetallfile#  'Lock  #',  1:3.  '  '»  Present_time:6) ; 

Present_time  ss  Present_time  Delay[I]; 

Writeln(Detallfile,  'Process  #',  1:3#  '  ',  Present_time:6) 

End  {  Then  part  J 

Else  begin 

Remaining  :*  Remaining  ♦  1; 

Present_time  s*  Present_time  ♦  Look_Request_Delay ; 
Writeln(Detailfile,  'Look  #',  1:3#  '(u)  '#  Present  time:6) 

End 

End;  {  Non-blocking  run  } 

{  Iteratively#  wait  for  next  available  lock  ) 

While  Remaining  >  0  do  begin 

Preaent_tlne  :«  Preaent_tlme  ♦  LM3M; 

WrltelnTDetallflle,  'Lock  #'#  Selected: 3.  '(o)  Present_time:6); 
Present_time  :«  Present_tlme  ♦  Delay[Selected]; 

WrltelnTDetallflle,  'Prooess  I',  Selected: 3#  '  Preaent_time:6) ; 
Remaining  :*  Remaining  -  1; 

LM_Calls  :«  LMjCalls  ♦  1 
End;  ~  (  While  7  Wait  for  locks  } 

A-  imiiwi I ale( PcnnaitL  l.la«,  (l)) 

Summer y_3tats< FLOAT {Pre*ent_fcime> ,  FLOAT! LM_Cal Is) ) 
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End 


{  Module  Looopt  > 


(•iiioifKmfiiHiiiiiimmHHHHimHmmiiimiiii} 

{•  Interface  that  aupplles  global  identifiers  to  all  those  •) 
{•  program  units  that  need  them.  Important  oonsts  and  •} 
(*  types  are  Included,  but  also  the  files,  lockable  unit  *} 
{*  information  Units,  svallsbllity,  processing  daisy,  and  •) 
{*  the  soalars  Lock_Request_Delay  (presently  1),  number  of  *) 
(•  lockable  units  LU  No,  and  Present  time.  •} 

(Meaea»etaeaaeeaeaaaTssaaaaeeaeeeeae7aaaeeaaaaasaasssaasassa> 

Interface; 

Unit  Globlds(Ma«_Units,  Algos,  Unit_Range,  T_L_Ptr,  Time_llst, 
Un_Vec,  Bool array,  Intarray,  Det allfile,  Summaryflle,  Units, 
Lock_Request_delay ,  Presenttime,  Avail,  Delay,  LU_No); 

Const  “ 


(  Tima  node  for  linked  list  } 


Max_Units  *  100;  {  Max  lockable  unite  (arbitrary)} 

Algos  *8;  (  Number  of  algorithms  } 

Type 

Unit_Range  *  1 . .MaxUnita ; 

T_L_Ptr  a  “Time_list;  (  Tima  node  for  linked  list  } 

Time_list  a  Record 
Time  ;  Integer; 

Next  :  TLPtr 
End; 

Un_Vec  a  Array[Unit_Range]  of  TJL  Ptr; 

~  T  Array  of  time  lists  } 

Boolarray  s  Array [Unit_Range]  of  Boolean; 

(  Type  for  Done,  used  in  subprogr 
Intarray  a  Array [Unit_RangeJ  of  Integer; 

(  Used  for  Avail  and  Delay  ) 

Var 

DetallFile,  Summary File  :  Text;  (  Output  files  } 


Units  :  Un_Vec; 


{  Availability  of  lockable  units; 


Always 

available 


:  no  i  .  : 


Queue  of 
length  110 


Always 

available 


Looked  from  0  to  180 


300  to  *50 


I  o  |  .  |  |  20  I  .  I 

mST.1  mwT."I 

1 -■» 

I  300  ♦  ."I  |Mxint|"."7 
I  A50  |  ,  I  |  - 

I -♦  i 

. *  T-»  Looked 

llteintl  .  |  from 

20  to  1A0 
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!.ock_Request_Delay  :  Integer; 
Prc*ent_time  :  Integer; 

Avail,  Delay  :  Intarray; 

LU_No  :  Integer; 


) 

{  Time  needed  to  access  lock  manager  ) 
{  Simulated  clock  } 

{  When  available.  Processing  delay  } 


Begin 

End; 


{ $ I N CLUDE : • B : LOCGLBLS . DOC ' } 
Implementation  of  globids; 
Begin 
End. 


{IINCLUDE: 'B:LOCGLBLS.DOC' } 

Module  Helps; 

. . eeeeeeeeeaeeeeeeeeeeeeiaieBeeeaeeeesee.ee} 

{•  This  module  contains  certain  small,  relatively  pure  *} 
{•  subprograms.  They  are  declared  EXTERN  by  those  •} 

{•  calling  units  that  access  them.  •} 

. . ...ee.......e......ee....ee.eee.......e......e} 

Uses  Globids; 

{••••••• . . . . 


Function  Max(A,  B  ;  Integer)  :  Integer; 

{  Returns  value  of  maximum  of  two  args  } 

Begin 

If  A  >  B  then  Max  :=  A 
Else  Max  : =  B 
End; 

. . . . ......ee..eee..eeeeeeeeeee..eeee..eee....eeeeeeeeeeeee} 

Function  RANDOM (Var  Seed  :  Integer*)  :  Real; 

{  Generates  uniform  random  floating-point  numbers  in  the  ) 

{  range  0  <«  R  <  1,  using  the  linear  congruence  method  ) 

{  of  Knuth  vol.  2.  C  is  zero,  so  the  low-order  bits  are  } 

{  not  very  random.  Test  high-order  bits  Instead,  ) 

Const  Multiplier  *  25997, 

Modulus  «  32768; 

Fmod  «  32768.0; 

Begin 

Seed  is  (Seed  *  Multiplier)  mod  Modulus; 

RANDOM  :s  FLOAT* (Seed)  /  Fmod 
End; 

(eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee) 

Procedure  NORMAL (Var  Seed  t  Integer*;  Var  Result 1,  Reeult2  t  Real); 

(  Generates  two  normally-distributed  random  numbers  with  } 

(  a  mean  of  zero  and  a  standard  deviation  of  one,  using  ) 

(  a  method  given  in  Knuth  vol,  2.  ) 
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Var 

Root,  VI,  V2,  S  :  Rail; 

Begin 

Repeat 

Vt  ;«  2.0  *  RANDOM (Seed)  -  1; 

V2  s s  2.0  •  RANDOM (Seed)  -  1; 

S  :*  SQR(Vt)  ♦  SQR(V2) 

Until  (S  <  1)  and  (S  >  0); 

Root  :>  SQRK-2.0  *  LN(S)  /  S); 

Result t  :s  VI  *  Root; 

Result2  s=  V2  •  Root 
End; 

(.«.*eee«ssseeeeeeseeees»eseeaeesesee*easeseeeeee*e»eeeeeeeesaeeeee} 

Procedure  Getanswer (Const*  S:  String;  Var  Answer  :  Char); 

{  Get  a  1-character  response  from  keyboard  } 

Begin 

Write(S) ; 

Read In (Answer) 

End; 

{eaaaaaaaaseaaaaseseeeasaaaeaaasessssseescsssseeeeeeseeseseseeeea**} 

Procedure  Add_Links(Var  List  *  T_L_Ptr;  Start,  Finish  t  Integer); 

{  Adds  an  aativity  entry  to  Units  ) 

Begin 

If (Finish  >  0)  and  (List  #  Nil)  then  begin 
New(Liat); 

List* .Time  ;«  Start; 

New(List*.Next) ; 

List*. Next*. Time  :*  Finish; 

List*. Next*. Next  :=  Nil 

End 

Else  if  Finish  >  0  then  Add  Links(List*. Next*. Next,  Start,  Finish) 

End; 

(e*******a»a********«***a*e**e**s»t*et»*saM»»BS**ea**»eee**t****ee} 

Procedure  Terainate(Var  List  i  T_L_Ptr ) ; 

(  Terminates  activity  list  with  (Maxint,  Nil)  ) 

Begin 

If  List  *  Nil  then  begin 
New(List); 

List*. Tine  s«  Maxint; 

List*. Next  :«  Nil 
End 

Else  Termlnate(Llst*. Next*. Next) 

End; 

(eeeeeeeeeeeeaeeeeaeeeeeeeeeeeaaaeeeeeeeeesessaeeteeaoeeeeeeeeeeee) 
Procedure  MakeDelays(Var  D  «  Inter ray;  LNo  t  Integer;  Var  Seed  t  Integer*); 
(  Generate  random  preoessing  delays  ) 

(  uniformly  from  J  to  15.  ) 

Var  X  t  Integer; 

Begin 

For  X  is  1  to  Lie  do  D(X]  ts  TWMCOS.O  •  RAMDOH(Seod))  ♦  J 


It 


End; 


End. 


{imiiiiHiHiiiimiHiHiiHHiiiiHiiimiimH] 

{*  Simulation  parameter  initialization  routines.  •} 

{aeaaaaaaaaaeaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa} 

Interface; 

Unit  Parai (Override,  Default ,  Display.  Ad_Req ,  Lock_Bar,  Lock_Slgma, 
Q_Prob,  Q_Mean_Len,  Q  Std  Dev);” 


Var 

Ad_Req  :  Real;  { 

l 

Lock_Bar  :  Integer;  { 

Lock_Sigma  :  Integer;  { 

Q_Prob  ;  Real;  { 

Q_Mean_Len  :  Integer;  { 

QStd  Dev  s  Integer;  { 


Probability  of  an  adverse  request  on  } 
a  lockable  unit  in  a  10-tick  period  } 
Mean  adverse  lock  duration  ) 

Std.  deviation  of  adverse  lock  duration  } 
Probability  of  a  queue  on  a  unit  j 
Mean  queue  length  ) 

Std.  deviation  of  queue  length  ) 


Procedure  Override;  {  Override  the  default  on  one  or  more  parameters  ) 
Procedure  De_fault;  {  Set  parameters  to  default  } 

Procedure  Display (Var  F:  Text);  {  Display  parameters  } 


End; 


{ $1 NCLUDE : ' B : LOCPARMI . DOC ' } 


{eeeeeeeeeaeeseeeeeeeaeeseeeeeeeeeeeeeseeeeseeeeeeseeeeeaee} 

{•  Implementation  of  parameter  init  &  diaplay  routines.  •) 

{•aeaaaeaeaaaaaeaaeeeeeaaaaeeaeeeeaeeeeeeeaeeeeeeeaeaaaeaea) 

Implementation  of  Parmi; 

{eseeeaeessssesseseeeeseeeeessseeesseseseeeseeeeessseseee) 

{•  Constants  used  in  the  initialization  of  simulation  •) 

{•  parameters.  These  are  the  defaults.  •) 

{•aeaeaaaaeaaaeeaaaeeaeeaaeaaeaaaeeaeaeeeeaaeaeeaeaeaeaee) 

Const 


Con_Def  =  0.01; 

{  Default  probability  of 

(  adverse  look  request/10  tloks 

LockJDefault  «  150; 

(  Default  mean  look  duration 

Lk_sTg_De fault  •  50; 

(  Default  standard  deviation 

(  of  look  duration 

Q_Prob_De fault  a  0.1; 

C  Default  probability  of  queue 

Q~Bar  "»  100; 

{  Default  mean  queue  length 

Q^Slgma  «  20; 

(  Default  queue  std.  dev. 

(eeeeeeeeeeeaeeaaeeeeeeeaeeeeaafaaeeeaeeaaeaeeafeeeeeeeaeaeeeeeaeaa) 

Procedure  Override;  (  Override  the  default  on  one  or  more  parameters  ) 
Var 


3) 


InStr  :  Lstrlng(25); 

Begin 

Wrlt«ln( 'Enter  nuaber  (or  <ENTER>  for  default).'); 

Wrlte('Prob.  of  adverse  request  per  10  ticks  (',  Ad_Reqj6«4,  ')'); 

Read In ( InStr); 

If  ( InStr  ONull )  then  if  Not  DECODE (InStr,  Ad_Req)  then  Adjleq  :*  Con_Def; 
Write ('Mean  lock  duration  (',  Look_Bar:1,  ' )~) ;  ~ 

Resdln( InStr); 

If  (InStr  <>  Null)  then  if  Not  DECODEdnStr ,  Look_Bar)  then 
Lock_Bar  j»  LockJDefault;  ” 

WriteCStd.  deviation  of  look  duration  (',  Lock_Slgma:  1 ,  ')'); 

Readln( InStr); 

If  (InStr  <>  Null)  then  if  Not  DECODEdnStr,  Look_Sigaa)  then 
LockjSlgaa  ;*  Lk_Sig_Def suit {  ~ 

Write ( 'Per-unit  probability  of  a  queue  (',  Q_Prob:6s4,  ')'); 

Read In (InStr); 

If  (InStr  <>  Null)  then  if  Not  DECODEdnStr,  Q_Prob)  then 
QProb  s«  Q_Prob_De fault; 

Write ('Probable  length  of  queue  in  tloks  (',  Q_Mean_Lens 1,  ')’); 

Readln (InStr) ; 

If  (InStr  <>  Null)  then  if  Not  DECODEdnStr •  Q_Mean_Len)  then 
Q  Hean  Len  s*  Q__Bar; 

WriteCStd.  deviation  of  queue  length  C,  Q_Std_Dev:1,  ')'); 

Readln( InStr);  " 

If  (InStr  <>  Null)  then  if  Not  DECODEdnStr,  Q_Std_Dev)  then 
Q_Std_Dev  :*  Q  Signs  “ 

End; 

{feesefateeaeeesesseseeesssseeseeeeteseeseeefsseseeeeeeeseeesesesse} 

Procedure  De_fault; 

(  Set  paraaeters  to  default  } 

Begin 

Ad_Req  i»  Con_Def; 

LockBar  :>  LookJDef ault ; 

Lock_Sigaa  :*  Lk~31g_Def suit ; 

Q_Prob  ;>  QProbJDefault; 

Q_Mean_Len  ;=  Q_Sar; 

Q~ Std  Dev  ;t  Q  Slgaa 
End;- 

(eaeeeesaaeeaaeaeeeeeeeeeeaaeaaeeaeeeoeeaaaaeaeeaaaeaeeaaeaaaeaaeea} 

Procedure  Display; 

I  Diaplay  paraaeters  to  file  F  ) 

Begin 

Writeln(F,  'Paraaeters  Probability  Mean  Std.  Dev.'); 

Vriteln<r,  »■  - . — . . — . . , . -«); 

Writeln(F,  'Potential  conflicts',  AdJtoqtlOtS,  Look_Bar i 10, 

Look  Sigaail); 

WrltelnTf,  'Queues  ',  Q  Probt10;3,  Q  Naan  Lent  10, 

Q  Std  Devil); 

Writeln(F) 

Ead; 
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End 


{IIHHmHMtlHIlHimilHIItHIIIHHHIHMIMlfHIMt} 

{*  Interface  for  routines  called  by  transaction  managers  *} 

. . aaaaaaaaaeaaaaaaat.aa.aaaaeaaaaaa.} 

Interface; 

Unit  Tmcal( TotRec,  Totals,  LMO,  LM1,  LM2,  Summary_stats,  Accumulate, 
Averages,  Opteval); 

Const  Algos  =  8; 

Type  TotRec  s  Record  Time,  Requests  :  Integer 4  End; 

Var  Totals  :  Arr ay [0. .Algos]  of  TotRec; 

Function  LM0(LU  :  Integer)  :  Integer; 

{  The  usual  blocking  lock  manager,  with  the  } 

{  addition  of  a  check  to  Avail  to  go  with  ) 

{  lock  manager  2.  ) 

Function  LM1(LU  :  Integer)  :  Boolean; 

Function  LM2(LU  :  Integer)  s  Boolean; 

Procedure  Summary_Stats(Time,  Requests  :  Real); 

Procedure  Accumulate (Time,  Requests,  ID  ;  Integer); 

{  Accumulate  totals  for  a  particular  trans.  type  ) 
Procedure  Averages (T_Rum  :  Integer); 

Procedure  OptevaKTlme,  Requests  :  Real); 

End; 


(IINCLUDE: 'B: LOCTMCAl.DOC 1 ) 

(IINCLUDE: 'BsLOCGLBLS.DOC* ) 

{ •eaeseeaeaeeaeeeaeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee } 

{*  Implementation  of  Lock  Managers  0-2,  Summary_atata,  *) 
{*  Accumulate,  Averages,  and  Opteval.  ~  •} 

{eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeaeeeeeeeeeeeeeeeej 

Implementation  of  Tmcal; 

Uses  Clobids; 


Var  BestE  s  Real;  {  Evaluation  of  OPTIMAL,  for  comparison  ) 

Function  Max (A,  B  i  Integer)  i  Integer;  Eitern; 

Function  LMU; 

{  The  usual  blocking  look  manager,  with  the  addition  of  1 
(  a  oheck  to  Avail  to  go  with  look  manager  2.  ) 

Var  P  t  T  L  Ptr; 
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Begin 

If  UnitstLU]  :  Nil  Then  LMO  s*  Lock_Requast_D«lay 
Else  If  AvailtLU]  <>  Maxint  Then 

LMO  :s  Max (Aval I [LU]  -  Present  tlae.  Look  Request  Delay) 

Else  if  UnitstLU]*. Next  *  Nil  Than 

LMO  : =  Max(Lock_Request_Delay»  UnitstLU)*. Time) 

Else  if  UnitstLU]*. Tlae  >  Present_Tiae  Then 
LMO  : *  Lock_Request_Delay  ” 

Else  begin  ” 

P  : a  UnitstLU]; 

LMO  :s  Lock_Request_Delay; 

While  P*.Time  <s  Presentjtine  do  begin 
If  P*. Next'1. Time  >  Preaent_tiae  then 

LMO  :  -  Max (P*. Next*. Tie*  -  Prwnt  tlae,  Look  Request_delay); 
P  :=  P*. Next*. Next 
End 
End 
End; 


{seeeeeeseesseeassseesseseseeeeeseeeseeeeeessseeeeeeeseeeeeeeeeeees) 

Function  LM1 ; 

{  A  slaulator  of  Lock  Manager  1:  This  is  the  nonblooking  part.  ) 
{  LMO  is  used  for  the  blocking  part.  Thia  look  manager  simply  ) 
{  determines  whether  the  requested  look  is  available  and  ) 

{  returns  true  or  false.  ) 

Var  P  s  T_L_Ptr ; 

Begin 


If  UnitstLU]  =  Nil  then  LM1  :=  True  {  No  activity  } 

Else  if  Units[LU]*. Next  *  Nil  Then  LM1  :»  False  {  Queue  } 

Else  if  UnitstLU]*. Time  >  Present_tlae  Then  LM1  :*  True  {  Not  yet  started  } 
Else  begin  (  Do  an  activity's  start  and  finish  bracket  Present  tlae?  } 

P  : s  UnitstLU]; 

LM1  : =  True; 

While  P*.Tlae  <=  Present_tlae  do  begin 

If  P*. Next*. Tlae  >  Present_time  then  LM1  j*  False; 

P  :«  P*. Next*. Next 
End  (  While  P*.Tlae  ...  ) 

End  {  Else  begin  ...  } 

End; 

(seeeeeeeeeseeesssseeeeeeeeseeesssessssseesessaesesaeefeseeseeaseee) 

Function  LM2; 

(  Slaulator  of  Lock  Manager  2:  } 

{  This  is  the  nonblooking  part  only.  LMO  is  used  for  the  ] 

{  blocking  part.  This  lock  aanagor  simulates  placing  the  } 

(  transaction  in  the  queue  if  the  unit  is  not  laaediately  ) 

(  available.  ) 

Var  P  t  T_L_Ptr ; 

Begin  ” 

If  UnitstLU]  >  Nil  then  LM2  is  True  {  No  aotivity  ) 

Else  if  AvellCLU]  <•  Present_tlae  then  LM2  u  True  (  Presently  available  ) 
Else  if  AvailtLU]  <>  Maxint  then  LM2  ta  False  {  Net  available  yet  ) 

Else  If  UnitstLU]*. Next  a  Nil  then  begin  {  Queue  ) 

AvailtLU]  ta  Present  tlae  ♦  UnitstLU]* .Tlae; 


LM2  : s  False 


End 

Else  if  Units[LU]A.Tlme  >  Present_time  then  LM2  : :  True  {  Future  activity  } 
Else  begin  (  Do  an  activity's  start  and  finish  bracket  Present  time?  ) 

P  :=  UnitsCLU] ; 

LM 2  :=  True; 

While  PA.Time  <=  Present_time  do  begin 

If  PA. Next A. Time  >  Present_time  then  begin 
LM2  :=  False; 

AvailCLU]  ss  PA. Next*. Time 
End; 

P  :=  PA. Next*. Next 


End  {  While  PA.Tirae  ...  } 

End  {  Else  ...  ) 

End; 

. . . . . 


Procedure  Summary_Stats; 

Var  Eval  :  Real; 

Begin 

WriteCSummaryFile,  Time: 11:1); 

WritetSummaryFile,  Requests: 12: 1 ) ; 

Eval  :s  (1.0  ♦  SQR (1.0  -  Request s/LU_No) )  •  Time; 

Write(SummaryFile,  Eval: 15:2); 

Writeln(SummaryFile,  Eval  /  BestE  : 15: 3) 

End; 

Procedure  Accumulate; 

(  Accumulate  totals  for  a  particular  trans.  type  ) 

Begin 

Totals[ID].Tlme  :=  Totals[ID].Time  ♦  Time; 

Totals! ID]. Requests  :«  Totals[ID], Requests  ♦  Requests 
End; 

. . seaeeaeeeeeeeeeeeeeeeeeeeseeeeeseeeeeeeeeeeeseeeaeeeeaaae#} 

Procedure  Averages; 

(  Display  averages  for  a  particular  trans.  type  ) 

Var  I  :  Integer; 

Begin 

0pteval(Totals!0].Time  /  T  Hum,  Totals [0], Requests  /  T_num); 
Writeln(SummaryFile) ;  Writeln(SummaryFile,  '••••••••••¥eeeeaaeaaaeaaa« ) . 

Writeln(SummaryFile,  'Averages  for  this  transaction  type:'); 
Write(SummaryFile, '  TW  LM  Time  Active  Lock  Requests'); 
Writeln(SummaryFlle,  '  Evaluation  Eval/OptEval'); 

Write (Summary file,  '  Optimal  •); 

Summary  stats(Totals[0].Time  /  T  Num,  Totals CO). Requests  /  T  Num); 

Write (Summary file,  '  0  O'); 

Summary_stats (Totals! 1].Time  /  T_Num ,  Totals! 13. Requests  /  T_Hum); 

For  Z  {s'  2  to  Algos-1  do  b*gin  ” 

Write (Summary fi le ,  I  DIV  2  l  A,  I  MOD  2  ♦  1  :  6,  ' 

Summaryjatats (Totals! I]. Time  /  TJtum,  Totals! I]. Requests  /  TJIum) 

End;  ”  “ 

Write (Summaryflle,  A:A,  3:6,  ’  '); 
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Suw*ary_atats(Totala[8J.Tl«e  /  T_nu* ,  Total*[83.H*que»ts  /  T_Nua) 

End ; 

Procedure  Opteval; 

(  Record  evaluation  of  OPTIKAL  for  ooaparlaon  with  other*  } 

Begin 

BestE  :*  (1.0  ♦  SQR( 1.0  -  Requeata  /  LU  Ko))  *  Tiae 
End; 


APPENDIX  B:  RESULTS 


LIGHT  ACTIVITY 

Parameters  Probability  Mean  Std.  Dev. 

Potential  conflicts  0.004  150  50 


Queues 

0 

.080  250 

80 

Averages 

for 

5  lockable  units: 

TM 

LM 

Time  Active 

Lock  Requests 

Evaluation 

Eval/OptEval 

Optimal 

136.1 

5.0 

136.05 

1.000 

0 

0 

162.4 

5.0 

162.45 

1.194 

1 

1 

160.5 

6.2 

168.99 

1.242 

1 

2 

145.1 

6.2 

152.72 

1.123 

2 

1 

160.1 

5.6 

162.41 

1.194 

2 

2 

145.1 

5.6 

147.14 

1.082 

3 

1 

160.1 

5.6 

161.99 

1.191 

3 

2 

145.1 

5.6 

146.81 

1.079 

4 

3 

144.4 

5.6 

146.15 

1.074 

Averages 

for 

10  lockable 

units: 

TM 

LM 

Time  Active 

Lock  Requests 

Evaluation 

Eval/OptEval 

Optimal 

230.0 

10.0 

230.00 

1.000 

0 

0 

376.2 

10.0 

376.20 

1.636 

1 

1 

353.5 

13.6 

400.65 

1.742 

1 

2 

261.0 

13.5 

292.92 

1.274 

2 

1 

352.5 

12.4 

372.02 

1.617 

2 

2 

261.0 

12.3 

274.16 

1.192 

3 

1 

351.9 

11.6 

361.43 

1.571 

3 

2 

261.0 

11.6 

268.05 

1.165 

4 

3 

259.0 

11.6 

266.00 

1.157 

Averages 

for 

15  lockable  i 

units: 

TM 

LM 

Time  Aotlve 

Lock  Requests 

Evaluation 

Eval/OptEval 

Optimal 

244.6 

15.0 

244.55 

1.000 

0 

0 

476.3 

15.0 

476.25 

1.947 

1 

1 

452.5 

20.0 

501.72 

2.052 

1 

2 

300.4 

19.6 

329.27 

1.346 

2 

1 

450.9 

18.1 

470.11 

1.922 

2 

2 

300.9 

18.0 

312.49 

1.278 

3 

1 

449.9 

17.0 

457.90 

1.872 

3 

2 

300.9 

17.0 

306.20 

1.252 

4 

3 

298.3 

17.0 

303.55 

1.241 

Averages 

for 

20  lockable 

units: 

TM 

LM 

Time  Aotlve 

Lock  Requests 

Evaluation 

Eval/OptEval 

Optima 

1 

270.3 

20.0 

270.25 

1.000 

0 

0 

718.4 

20.0 

718.40 

2.658 

1 

1 

651.3 

27.1 

733.32 

2.714 

1 

2 

354.1 

26.7 

393.84 

1.457 

2 

1 

655.2 

24.5 

688.37 

2.547 

2 

2 

354.4 

2*».3 

370.35 

1.370 

3 

1 

653.6 

22.6 

664.65 

2.459 

3 

2 

355.5 

22.6 

361.46 

1.337 

4 

3 

352.0 

22.6 

357.95 

1.325 
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MEDIUM  ACTIVITY 

Parameters  Probability  Mean  Std.  Dev. 


Potential  conflicts  0.010  150  50 

Queues  0. 100  250  80 


i 


Averages  for  5  lockable  uni tat 


TM 

LM 

Time  Active 

Lock  Requests 

Evaluation 

Eval/OptEval 

Optimal 

183.5 

•  <  5.0 

183.50 

1.000 

0 

0 

259.0 

5.0 

259.00 

1.411 

1 

1 

254.0 

6.3 

361.32 

1.969 

1 

2 

192.9 

8.1 

264.61 

1.442 

2 

1 

253.4 

6.9 

291.88 

1.591 

2 

2 

192.9 

6.8 

217.84 

1.187 

3 

1 

252.8 

6.3 

269.84 

1.470 

3 

2 

192.9 

6.3 

205.89 

1.122 

4 

3 

190.8 

6.3 

203.70 

1.110 

Averages  for 

10  lockable  units: 

TM 

LM 

Time  Active 

Lock  Requests 

Evaluation 

Eval/OptEval 

Optimal 

207.6 

10.0 

207.55 

1.000 

0 

0 

427.3 

10.0 

427.25 

2.059 

1 

1 

382.5 

15.5 

498.21 

2.400 

1 

2 

243.2 

15,1 

305.22 

1.471 

2 

1 

381.0 

13.1 

418.86 

2.018 

2 

2 

244.9 

12.8 

263.42 

1.269 

3 

1 

381.0 

12.3 

401.10 

1.933 

3 

2 

245.9 

12.3 

258.91 

1.247 

4 

3 

236.1 

12.3 

248.54 

1.197 

Averages  for 

15  lockable  units: 

TM 

LM 

Time  Active 

Lock  Requests 

Evaluation 

Eval/OptEval 

Optimal 

257.1 

15.0 

257.10 

1.000 

0 

0 

586.2 

15.0 

586.20 

2.280 

1 

1 

486.4 

22.3 

599.97 

2.334 

1 

2 

303.1 

21.7 

363.57 

1.414 

2 

1 

484.0 

19.3 

522.91 

2.034 

2 

2 

305.0 

18.9 

325.04 

1.264 

3 

1 

491.0 

17.6 

506.32 

1.969 

3 

2 

306.3 

17.6 

315.81 

1.228 

4 

3 

298.0 

17.6 

307.30 

1.195 

Averages  for 

20  lockable  units: 

TM 

LM 

Time  Active 

Look  Requests 

Evaluation 

Eval/OptEval 

Optimal 

299.0 

20.0 

299.00 

1.000 

0 

0 

845.0 

20.0 

845.05 

2.826 

t 

1 

663.0 

29.7 

819.02 

2.739 

T 

2 

383.8 

28.4 

451.50 

1.510 

2 

t 

660.8 

<6.3 

725.39 

2.426 

2 

2 

385.5 

25.5 

415.13 

1.388 

3 

1 

661.2 

24.0 

688.99 

2.298 

3 

2 

390.4 

24.0 

405.58 

1.396 

4 

3 

380.5 

24.0 

395.29 

1.3« 
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HEAVY  ACTIVITY 


Parameters 


Probability  Mean  Std.  Dev. 


Potential  conflicts  0.050  150  50 

Queues  0. 150  250  80 


Averages 

for 

5  lockable  units: 

TM 

LM 

Time  Active 

Lock  Requests 

Evaluation 

Eval/OptEval 

Optimal 

201.6 

5.0 

201.55 

1.000 

0 

0 

407.4 

5.0 

407.40 

2.021 

1 

1 

328.4 

11.2 

833.22 

4.134 

1 

2 

222.1 

10.8 

515.94 

2.560 

2 

1 

328.0 

8.7 

507.54 

2.518 

2 

2 

222.1 

8.1 

310.32 

1.540 

3 

1 

334.7 

7.3 

405.52 

2.012 

3 

2 

223.4 

7.3 

270.73 

1.343 

4 

3 

218.3 

7.3 

264.43 

1.312 

Averages 

for 

10  lockable  i 

units: 

TM 

LM 

Time  Active 

Lock  Requests 

Evaluation 

Eval/OptEval 

Optimal 

278.1 

10.0 

278.10 

1.000 

0 

0 

732.5 

10.0 

732.45 

2.634 

1 

1 

528.0 

26.2 

1913.50 

6.881 

1 

2 

320.1 

23.5 

903.62 

3.249 

2 

1 

529.5 

19.8 

1037.93 

3.732 

2 

2 

320.1 

18.0 

527.62 

1.897 

3 

1 

601.7 

15.3 

767.54 

2.760 

3 

2 

326.8 

15.3 

416.87 

1.499 

4 

3 

307.1 

15.3 

391.74 

1.409 

Averages 

for 

15  lockable  ' 

units: 

TM 

LM 

Time  Active 

Lock  Requests 

Evaluation 

Eval/OptEval 

Optimal 

290.0 

15.0 

289.95 

1.000 

0 

0 

1097.6 

15.0 

1097.60 

3.785 

1 

1 

656.8 

45.0 

3284.00 

11.326 

1 

2 

342.3 

42.6 

1500.97 

5.177 

2 

1 

696.3 

33.3 

1732.80 

5.976 

2 

2 

352.5 

30.0 

702.75 

2.424 

3 

1 

798.5 

23.5 

1051.97 

3.628 

3 

2 

367.6 

23.5 

484.26 

1.670 

4 

3 

330.6 

23.5 

435.58 

1.502 

Averages 

for 

20  lockable 

units: 

TM 

LM 

Time  Active 

Look  Requests 

Evaluation 

Eval/OptEval 

Optimal 

328.8 

20.0 

328.75 

1.000 

0 

0 

1381.4 

20.0 

1381.40 

4.202 

1 

1 

977.3 

57.3 

4376.79 

13.313 

1 

2 

391.6 

46.8 

1097.38 

3.338 

2 

1 

980.5 

41.8 

2150.89 

6.543 

2 

2 

397.9 

36.3 

662.20 

2.014 

3 

1 

1154.2 

30.4 

1463.30 

4.451 

3 

2 

418.3 

30.4 

530.26 

1.613 

4 

3 

394.5 

30.4 

500.21 

1.522 

At 
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